home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 4 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  236 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE [159]"
  28. 92 GETR$:IFR$<>CHR$(32)THEN92
  29. 93 RETURN
  30. 95 PRINT"  [194]ETTER LUCK WITH THE NEXT QUESTION.[159]":RETURN
  31. 100 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:C=0:P=0:W=0:D=0:G=0
  32. 101 PRINT"[147]      [193][160][212][208][213][199][160][197][196][213][195][193][212][201][207][206][193][204][160][208][210][207][199][210][193][205]
  33. 102 [153]"           ASC(null)(null)CLOSELEN64 LEN(null)(null)(null)(null)(null)VAL(null)(null)
  34. 105 PRINT"                                        [146]";
  35. 110 PRINT"                                        [146]";
  36. 115 PRINT"     [208]RACTICE [208]ROBLEMS IN [193]RITHMETIC    [146]";
  37. 120 PRINT"                                        [146]";
  38. 125 PRINT"           [199]RADE 3     [208]ART 2           [146]";
  39. 130 PRINT"                                        [146]";
  40. 135 PRINT"               [204]ESSON 4                 [146]";
  41. 140 PRINT"                                        [146]";
  42. 145 PRINT"           [199]ENERAL [208]ROBLEMS   [159]          [146]";
  43. 150 PRINT"                                        [146]";
  44. 155 PRINT"                                        [146]"
  45. 160 PRINT"                  WHC "
  46. 165 GOSUB90
  47. 170 PRINT"[147]       [193]ND AWAY WE GO......."
  48. 175 GOSUB81:GOSUB50:GOSUB80
  49. 200 PRINT"[152][147]               [209]UESTION 1 [146][159]":Z=0
  50. 205 PRINT"  [202]OHN HAS $1.75 IN THE BANK.  [200]OW
  51. 210 [153]"  MUCH WILL HE HAVE IF HE PUTS IN
  52. 215 PRINT"  $.35 MORE? ([196]ON'T FORGET THE $ SIGN)"
  53. 220 GOSUB81:GOSUB70
  54. 225 PRINT"             [145]"
  55. 230 INPUT A$
  56. 235 IFA$<>"$2.10"THEN 250
  57. 240 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  58. 245 P=P+1:GOTO300
  59. 250 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  60. 255 IFZ=2THENG=G+1:GOTO270
  61. 260 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  62. 265 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
  63. 270 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $2.10 [150]     ":GOSUB82
  64. 275 PRINT"   1.75 + .35 = 2.10  [159]"
  65. 295 GOSUB82:GOSUB90
  66. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  67. 305 PRINT"  [193] THIRD GRADE CLASS HELD A CAKE
  68. 310 [153]"  SALE AND RECEIVED $6.80.  (null)HEIR
  69. 315 PRINT"  EXPENSES WERE $3.45.  [215]HAT WAS
  70. 317 [153]"  THE AMOUNT EARNED FROM THE SALE?"
  71. 320 [141]81:[141]70
  72. 325 [153]"             ON"
  73. 330 [133] A$
  74. 335 [139]A$[179][177]"$3.35"[167] 350
  75. 340 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  76. 345 P[178]P[170]1:[137]400
  77. 350 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  78. 355 [139]Z[178]2[167]G[178]G[170]1:[137]370
  79. 360 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  80. 365 [153]"OPENONON                                        ONONONONONONON":[137]325
  81. 370 [153]"ONON   (null)HE CORRECT ANSWER IS  $3.35 DEF     ":[141]82
  82. 375 [153]"   6.80 - 3.45 = 2.35  OPEN"
  83. 395 [141]82:[141]90
  84. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  85. 405 [153]"  RIGHT$F OIL SELLS FOR $1.25 A PINT,
  86. 410 PRINT"  HOW MUCH MUST [212]OM PAY FOR 5 PINTS?"
  87. 420 GOSUB81:GOSUB70
  88. 425 PRINT"             [145]"
  89. 430 INPUT A$
  90. 435 IFA$<>"$6.25"THEN450
  91. 440 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  92. 445 P=P+1:GOTO500
  93. 450 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  94. 455 IFZ=2THENG=G+1:GOTO470
  95. 460 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  96. 465 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
  97. 470 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $6.25 [150]     ":GOSUB82
  98. 475 PRINT"   1.25 X 5 = 6.25     [159]"
  99. 495 GOSUB82:GOSUB90
  100. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  101. 505 PRINT"  [193]T $30.25 A PAIR, HOW MUCH WOULD
  102. 510 [153]"  (null)R. ATNDAMS HAVE TO PAY FOR 3 PAIRS       OF SHOES?"
  103. 520 [141]81:[141]70
  104. 525 [153]"             ON"
  105. 530 [133] A$
  106. 535 [139]A$[179][177]"$90.75"[167]550
  107. 540 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  108. 545 P[178]P[170]1:[137]600
  109. 550 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  110. 555 [139]Z[178]2[167]G[178]G[170]1:[137]570
  111. 560 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  112. 565 [153]"OPENONON                                        ONONONONONONON":[137]525
  113. 570 [153]"ONON   (null)HE CORRECT ANSWER IS  $90.75 DEF     ":[141]82
  114. 575 [153]"   30.25 X 3 = 90.75   OPEN"
  115. 595 [141]82:[141]90
  116. 600 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  117. 605 [153]"  ATN TEACHER BOUGHT A VOLLEY BALL FOR
  118. 610 PRINT"  $2.90 AND A NET FOR $4.25.
  119. 615 [153]"  LEFT$OW MUCH DID SHE SPEND?
  120. 620 GOSUB81:GOSUB70
  121. 625 PRINT"             [145]"
  122. 630 INPUT A$
  123. 635 IFA$<>"$7.15"THEN650
  124. 640 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  125. 645 P=P+1:GOTO700
  126. 650 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  127. 655 IFZ=2THENG=G+1:GOTO670
  128. 660 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  129. 665 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
  130. 670 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $7.15 [150]     ":GOSUB82
  131. 675 PRINT"   2.90 + 4.25 = 7.15  [159]"
  132. 695 GOSUB82:GOSUB90
  133. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  134. 705 PRINT"  [200]OW MUCH DID [200]ELEN PAY FOR 6 YARDS
  135. 710 [153]"  OF CLOTH AT $2.45 A YARD?"
  136. 720 [141]81:[141]70
  137. 725 [153]"             ON"
  138. 730 [133] A$
  139. 735 [139]A$[179][177]"$14.70"[167]750
  140. 740 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  141. 745 P[178]P[170]1:[137]800
  142. 750 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  143. 755 [139]Z[178]2[167]G[178]G[170]1:[137]770
  144. 760 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  145. 765 [153]"OPENONON                                        ONONONONONONON":[137]725
  146. 770 [153]"ONON   (null)HE CORRECT ANSWER IS  $14.70 DEF     ":[141]82
  147. 775 [153]"   2.45 X 6 = 14.70   OPEN"
  148. 795 [141]82:[141]90
  149. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  150. 805 [153]"  RIGHT$T COST $6.75 TO BUY COMMUTER
  151. 810 PRINT"  TICKETS FOR THREE BOYS TO GO TO         THE EXHIBITION.
  152. 815 [153]"  LEFT$OW MUCH WAS THIS FOR EACH BOY?"
  153. 820 [141]81:[141]70
  154. 825 [153]"             ON"
  155. 830 [133] A$
  156. 835 [139]A$[179][177]"$2.25"[167]850
  157. 840 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  158. 845 P[178]P[170]1:[137]900
  159. 850 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  160. 855 [139]Z[178]2[167]G[178]G[170]1:[137]870
  161. 860 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  162. 865 [153]"OPENONON                                        ONONONONONONON":[137]825
  163. 870 [153]"ONON   (null)HE CORRECT ANSWER IS  $2.25 DEF     ":[141]82
  164. 875 [153]"   6.75 / 3 = 2.25   OPEN"
  165. 895 [141]82:[141]90
  166. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  167. 905 [153]"  MID$AMIE WAS GIVEN $10.00 BY HIS
  168. 910 PRINT"  GRANDFATHER.  [200]E SPENT $4.75 FOR        A SWIMMING MASK.
  169. 915 [153]"  LEFT$OW MUCH MONEY DID HE HAVE LEFT?"
  170. 920 [141]81:[141]70
  171. 925 [153]"             ON"
  172. 930 [133] A$
  173. 935 [139]A$[179][177]"$5.25"[167]950
  174. 940 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  175. 945 P[178]P[170]1:[137]1000
  176. 950 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  177. 955 [139]Z[178]2[167]G[178]G[170]1:[137]970
  178. 960 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  179. 965 [153]"OPENONON                                        ONONONONONONON":[137]925
  180. 970 [153]"ONON   (null)HE CORRECT ANSWER IS  $5.25 DEF     ":[141]82
  181. 975 [153]"   10.00 - 4.75 = 5.25  OPEN"
  182. 995 [141]82:[141]90
  183. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  184. 1005 [153]"  LEFT$OW MUCH WOULD (null)R. LENRAIG HAVE TO
  185. 1010 PRINT"  PAY FOR 3 FOOTBALL TICKETS THAT         $2,25 EACH?"
  186. 1020 GOSUB81:GOSUB70
  187. 1025 PRINT"             [145]"
  188. 1030 INPUT A$
  189. 1035 IFA$<>"$15.75"THEN1050
  190. 1040 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  191. 1045 P=P+1:GOTO1100
  192. 1050 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  193. 1055 IFZ=2THENG=G+1:GOTO1070
  194. 1060 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  195. 1065 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1025
  196. 1070 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $25.75 [150]     ":GOSUB82
  197. 1075 PRINT"   5.25 X 3 = 15.75  [159]"
  198. 1095 GOSUB82:GOSUB90
  199. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  200. 1105 PRINT"  [193] DINING TABLE COST $370.00 AND
  201. 1110 [153]"  A CHINA CABINET COST $260.00
  202. 1115 PRINT"  [200]OW MUCH DID THE TABLE COST?"
  203. 1120 GOSUB81:GOSUB70
  204. 1125 PRINT"             [145]"
  205. 1130 INPUT A$
  206. 1135 IFA$<>"$370.00"THEN1150
  207. 1140 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  208. 1145 P=P+1:GOTO1200
  209. 1150 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  210. 1155 IFZ=2THENG=G+1:GOTO1170
  211. 1160 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  212. 1165 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1125
  213. 1170 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $370.00 [150]     ":GOSUB82
  214. 1175 PRINT"   [215]ERE YOU SLEEPING?  [159]"
  215. 1195 GOSUB82:GOSUB90
  216. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  217. 1205 D=W-G:C=10-W
  218. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  219. 1215 [153]"                 ";C
  220. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  221. 1225 PRINT"                 ";D
  222. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  223. 1235 [153]"                 ";G;""
  224. 1245 [141]90
  225. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  226. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  227. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  228. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  229. 1270 [139]R$[178]"R"[167][140]:[137]100
  230. 1275 [140]
  231. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  232. 1285 LOAD"MENU",8
  233. 1290 RUN
  234. 1295 END
  235. 1300 REM BILL CUMBERLAND 90:12:18
  236.